home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / sightmap / choosedi.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-01-15  |  4.4 KB  |  146 lines
  1. VERSION 5.00
  2. Begin VB.Form frmChooseDirectory 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Choose Directory"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   7560
  9.    Icon            =   "ChooseDirectory.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3195
  14.    ScaleWidth      =   7560
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.DriveListBox drvCur 
  17.       Height          =   315
  18.       Left            =   4320
  19.       TabIndex        =   5
  20.       Top             =   2160
  21.       Width           =   3015
  22.    End
  23.    Begin VB.DirListBox dirCur 
  24.       Height          =   2115
  25.       Left            =   360
  26.       TabIndex        =   2
  27.       Top             =   360
  28.       Width           =   3735
  29.    End
  30.    Begin VB.CommandButton CancelButton 
  31.       Caption         =   "Cancel"
  32.       Height          =   375
  33.       Left            =   6240
  34.       TabIndex        =   1
  35.       Top             =   840
  36.       Width           =   1215
  37.    End
  38.    Begin VB.CommandButton OKButton 
  39.       Caption         =   "OK"
  40.       Height          =   375
  41.       Left            =   6240
  42.       TabIndex        =   0
  43.       Top             =   360
  44.       Width           =   1215
  45.    End
  46.    Begin VB.Label lblDirectory 
  47.       Height          =   375
  48.       Left            =   1920
  49.       TabIndex        =   4
  50.       Top             =   2760
  51.       Width           =   5295
  52.    End
  53.    Begin VB.Label Label1 
  54.       Caption         =   "Current Directory:"
  55.       Height          =   255
  56.       Left            =   360
  57.       TabIndex        =   3
  58.       Top             =   2760
  59.       Width           =   1335
  60.    End
  61. Attribute VB_Name = "frmChooseDirectory"
  62. Attribute VB_GlobalNameSpace = False
  63. Attribute VB_Creatable = False
  64. Attribute VB_PredeclaredId = True
  65. Attribute VB_Exposed = False
  66. Option Explicit
  67. 'frmChooseDirectory.frm
  68. '--------------------------------------------------------------------------
  69. '<Purpose>
  70. '<Revision>
  71. '       $Revision: $
  72. '<Mod Log>
  73. '       $Log: $
  74. '--------------------------------------------------------------------------
  75. Private mMainDirectory As String
  76. '--------------------------------------------------------------------------
  77. '<Purpose>
  78. '<Syntax>
  79. '<Assumptions>
  80. '<Returns>
  81. '<Author>
  82. '   HBW
  83. '--------------------------------------------------------------------------
  84. Private Sub dirCur_Change()
  85.     mMainDirectory = dirCur.List(dirCur.ListIndex)
  86.     lblDirectory = dirCur.List(dirCur.ListIndex)
  87. End Sub
  88. '--------------------------------------------------------------------------
  89. '<Purpose>
  90. '<Syntax>
  91. '<Assumptions>
  92. '<Returns>
  93. '<Author>
  94. '   HBW
  95. '--------------------------------------------------------------------------
  96. Private Sub drvCur_Change()
  97.     dirCur.Path = drvCur.Drive
  98. End Sub
  99. '--------------------------------------------------------------------------
  100. '<Purpose>
  101. '<Syntax>
  102. '<Assumptions>
  103. '<Returns>
  104. '<Author>
  105. '   HBW
  106. '--------------------------------------------------------------------------
  107. Private Sub Form_Load()
  108.     If Len(mMainDirectory) = 0 Then
  109.         mMainDirectory = dirCur.List(dirCur.ListIndex)
  110.         lblDirectory = dirCur.List(dirCur.ListIndex)
  111.     End If
  112. End Sub
  113. '--------------------------------------------------------------------------
  114. '<Purpose>
  115. '<Syntax>
  116. '<Assumptions>
  117. '<Returns>
  118. '<Author>
  119. '   HBW
  120. '--------------------------------------------------------------------------
  121. Public Property Get CurrentDirectory() As String
  122.     CurrentDirectory = mMainDirectory
  123. End Property
  124. '--------------------------------------------------------------------------
  125. '<Purpose>
  126. '<Syntax>
  127. '<Assumptions>
  128. '<Returns>
  129. '<Author>
  130. '   HBW
  131. '--------------------------------------------------------------------------
  132. Public Property Let CurrentDirectory(ByVal NewDirectory As String)
  133.     mMainDirectory = NewDirectory
  134. End Property
  135. '--------------------------------------------------------------------------
  136. '<Purpose>
  137. '<Syntax>
  138. '<Assumptions>
  139. '<Returns>
  140. '<Author>
  141. '   HBW
  142. '--------------------------------------------------------------------------
  143. Private Sub OKButton_Click()
  144.     Me.Hide
  145. End Sub
  146.